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rencias y muy pronto las ve- 
rás en nuestras páginas. 




TECLAS DE CURSOR 

NOTFalcon™ pr$pu5no 

bien quiero saber qué hay 
que hacer para lo ; ;;.u c: 
juego Barcelona Olímpica 
me Funcione con las teclas de 
cursor. Por otra parte me in- 

'ro^rarnYcomeTdal 68 " 
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Reloj» ta pubnca^ r o S ¡n"e\ nú- 
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m 


con la hora prev.amcnlc 
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tonces s^que aparecen las 
aguiasysc ponen en funcio- 
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6. Referente al truco de des- 
bloqueo de programas co- 
merciales, como comprende- 
parte dar esa clase de in- 


«4, pues lo publicado es co- 

e grabada con él y se lo ca- 
de eZaZ el fallo" ° ' ' 


LA FORMA DEL REM 
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C a LU ue' e n n° ellos l°Te!" una 
nHra ^ir'nl'ufiliii 


SUGERENCIAS 
DE TEMAS 


Jesús López García 
Albacete 


articulo 3 slb^^oiistón" de 
sprites. También podrían 
crear una sección dedicada a 
las subrutinas de juegos. 
Marcos Fajardo Orellana 


{"ojo, Ts ITe^ufvaíente'a 
REM que lo empleamos para 
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Tablón de anuncios i 



Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a tres inserciones total- 
mente gratuitas. Las características de esta sección no permite la inclusión de anuncios con fines de hiero. 
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TUMLA DEL^DUERO 
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(Murcia). CP2. 


| ¡¡GANA 125.000 pts.!! | 



9 



Programa . 



■ Por César Ciuzado ■ 



AGENDA 



Este programa desarrollado 
por César Ciuzado es un 
magnífico fichero con capa- 
cidad para trescientas fichas, 
con el cual se puede contar 
para un verdadero archivo 
doméstico. Las instrucciones 
de carga, búsqueda y salvado 
de datos es rápida y de fácil 



DE 



* CESAR CIUZADO ** 

* PARA riSX CLUB ** 
3 • ******************* 
3 CLEAR5000 

3 DlriN*C4003.D*C4805,Nl*C 
90 DlrlL*C400:,P*C400D..Pl$C 
100 DinCl*C4003 :J=0 



OSUB1760 
14 0 F=5:M= 
OSUB17B0 



150 I- 



. . CARGAR" :l 
. . ENTRAR Y 
. . .BUSCAR" 



CORREGIR" :GOSUB1760 
- F=5:M=10:Q*="4q. . 
GOSUB1760 

tt=12:Q*="5o CAMBIAR DATO 

S" :GOSUB1760 

M=14:Q#="6g BORRAR" :GOSU 

B1760 

"--^M=16:Q*="7q FINAL" :GOSUB 

210 IFUALCA*] <1ORUALCA*3>8THEN200 
220 A=UALCA*3 

230 IFA=1THENB*="PULSA PLAY/RECORD DEL C 
ASSETE Y RETURN" 

-*0 IFA=2THENB*="PULSA PLAY DEL CASSETTE 
t 1 RETURN " 

50 IFA=3THENB*="ENTRADA DE DATOS EN FIC 
HERO" 

"-- IFA=4THENB$- "BUSQUEDA DE DATOS DE FI 
CHERO" 

— " I F A=5THENB$= " CAI1B I AR DATOS DEL FICHE 
RO" 



300 ONAGOSUB320.520.720.9 
50 

310 GOTO110 
320 GOSUB1670 

A*=INKEY*:IFA*=""THEN 
340 GOSUB1720 
350 B*="S A L U A N D O 
360 GOSUB1670 



480 NEXT:CLOSE#l 
490 GOSUB1720 

500 B*="D ATOS SALUADOS" 
510 GOSUB1670:FORQQ=1TO1000:NEXT:GOSUB17 
20:LOCATE2. 11 :PRINT"FICHAS LIBRES "300- J 
:F0RQQ=1 TO900 :NEXT :RETURN 
520 GOSUB1670 

530 A*=INKEY*:IFA*=""THEN530 
540 GOSUB1720 

550 B*="C ARGANDO DATOS" 

560 GOSUB1670 

570 0PEN"CAS:"FORINPUTAS#l 



630 INPUT#1. 
640 INPUT#1. 
650 INPUT#1. 
660 INPUT#1. 
670 INPUTSl. 
680 NEXT:CL0SE#1 
690 GOSUB1720 



CUPADAS " : :PRIN" 
NPUT"NOriBRE" :t 
750 LOCATE0.2:f=RINT' 
760 LOCATE0.4:INPUT' 
"770 LOCATE0.4:PR!NT : 
780 LOCATE0.6:INPUT' 
790 LOCATE0,6:PRINT : 



)500:NEXT:GOSUB1720 
■1 :LOCATE0.0:PRINT"FICHAS Lli 
:NTUSING"###" ;300-J: ¡PRINT" ( 
'USING"###" :J:L.OCATE0,2:: 



NOMBRE : 
DIRECCION" : 



Programa ■ 



3 LOCATE0.8: INPUT"TELEFONO" :T*C Jl 
3 LOCATE0 . 8 :PRINT" T ELEF0N0 : : r« f 
820 LOCATE0 . 10: INPUT'l OCALIDAÜ" :L*r„ 
"3 LOCATE0, 1 0 : D RINT" LOCAL IDAD :"¡L< 
840 LOCATE0, 12: INPUT" D ROUINCIA" :P*C 
850 LOCATE0, 12 : p RINT" D ROUINCIA :":P< 
860 LOCATE0. 14 : INPUT"°ROFESION" :P1*C 
870 LOCATE0, 14:PRINT"=R0FESI0N :»¡P1 

LOCA T E0 , 16:PRINT" OE 

880 LQCATE0, 1 9 : D RINT" - 



¿Mis datos S 
760:GOTO960ELSEJ=J-1 : 
-I"THEN880 

EY*:IFA$=""T H EN96fc 
3"THENCLS:GOTO740Q SEGOTOlie 
S:GOTO720 

="BUSCAR DATOS DEL FICHERO" 



350 IFA*= 
980 A*= 
970 IF( 



1000 GOSUB1670:F 

H=l:FORt1=! 
1020 LOCATE0.0: 
PROFESIC 
—) LOCATE0.H* 



■ICHA" :N:GOTO1!00 
LOCALIZADO" 



1080 RETURN 
0 CLS:B*¡ 
1110 B*=" 
1120 FORI=lTOLENCB*] :LOCATE0 
KB*. LENCB$ 3-1 + 1, I] :NEXTI 
1130 FORT=1TO500:NEXT 
1140 GOSUB1720 



1150 F 

: >B0 
wm : 
30 

1170 Q! 

?ee 

1180 Q! 
60 

1130 Q! 



3:Q*="NOMBRE :"+N*CN3 :M=3:G0SUB 

'DIRECCI0N:"+D*CN:):M:;ri+l:G0SUB17 

'NUMERO :"+Nl*CN3 :M=M+1 :GOSUBl 

TELEFONO :"+T*CN3 :M=M+1 :G0SUB17 

'LOCALIDAD:"+L*CN: :ri=M+I :G0SUB17 

■="PROUINCIl«l:"+P*CNl :M=M+1 :G0SUB17 

PROFESION:"+PI*CN] :M=M+1 :GOSUBl 

• NOTA 

:M=M+1 :GOSUB1760 



300 H=l :F0RM=1T0J 

310 LOCATE0, 0 :PRINT" APELLIDO 

PROFESION" 
320 LOCATE0.H*2:PR!NT"» o ,o>a>o>»iao>a><x>a>«>a ) < I > < DC»o: 

IPRINTUSING" 

350 FORT= 1 TO600 :NEXT :NEXT :LOCATE0, H*2+2 
PRINT"a>oia>.í«e 

360 INPUT"h 
380 

370 RETURN 
380 CLS:B*=" 
390 B*=" "+B* 
400 FORI=lTOLENCB*3 :LOCATE0, 1 1 : 
CB*, LENCB*]-I+1 , n :NEXTI 
410 FORT=1TO500:NEXT 
420 GOSUB1720 

430 F=0:Q*="N OMBRE :'+N*rN5: 
B1760 

440 Q*="D IRECCION:"-'-D*CN3 :M = M+1 :G0SUB1 




520 Q$=" 



:M=M+2:GOSUBI760 
1 PULSA LA INICIAL DEL PUNTO 
AMBIAR PULSA C N } PARA FINALIZAR I 
AMBIO" :m=21 :GOSUB1760 

W*=INKEY*:IFUi*=" i, THEN1540 
IFU*=CHR*C921THEN110 
IFW*="N".THENLOCATE2-, 
NI :CLS:GOTO1430 
IFW*="D"THENLOCATE2. 
:D*CN3 :CLS:GOTO1430 
IFW*="l"THENLOCATE2, 
:N1*CN1 :CLS:GOTO1430 
590 IFW*="T"THENL0CATE2, 
10" :T$-CND :CLS:GOTO1430 
600 IFW#="L. "THENL0CATF2, 
IAD" :L*CN3 :CLS:GOTO1430 
110 IFijü*="P"THENL0CATE2. 17 : INPUT"PROUIN 
A" ;P*CN3 :CLS:GOTO1430 

¡20 IFUI*="2"THENL0CATE2. 17 : INPUT"PROFES 
)N":Pl$CNí:CLS:GOTO1430 

632 IFW*^"X"THENL0CATE2. 17 : ¡NPUT"NOTA" : 
:*CND :CLS:GOTO1430 
640 GOTO1540 

650 GOSUB1670:FORQQ=1TO9OQ:NEXT:GOSUB17 



NPUT"N0nBRE 
NPUT"DIRECC 
NPUT"NUC 
NPUT"TEL 
NPUT"L0C 
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3:KEYON:SCREEN0:WIDTH37:LOCATE0,0:PRINT 
3EEP ¡BEEP ¡END 

360 GOSUB 1 670 : FQRQQ- 1 TO400 :NEXT : GOSUB 1 7 
3 ¡ERASEN*. D* ¡ERASEN 1*. T* ¡ERASEL*. P* ¡ERA 
SEP1*,C*¡B*="D «TOS BORRADOS" 
¡GOSUB1670¡FORQQ=1TO400¡NEXT¡GOSUB1720¡R 



1ID*CB*,LENCB*D-I+1 



40 LOCATE0.1 
, 15 ¡NEXTI 
1750 RETURN 
1760 ' 
1770 BB*=Q* 
1780 F0RI=1T0LENCBB*: 

1790 LOCATEF.M:PRINTnlD*CBB*.LENCBB*5--H 
' T) ¡NEXTI ¡Q*=" : ' 
1800 BEEP:BEEP:RETURN 
" 3 ONERRORGOTO2020 



1ID*CN*CnD.K 

_ENCY$D 

3=11THENY*=Y 



;9THENY*=Y*+" 
FGG=8THENY$=Y*+" 
FGG=7THENYS=Y*+" 
FGG=6THENY*=Y*+" 

FGG=5THENY*=Y*+" 

FGG=4THENY*=Y*+" 

FGG=3THENY*=Y*+" 

FGG=2THENY*=Y*+" 

FGG=1THENY*=Y*+" 



" :GOTO2010 
" :GOTO2010 
:l ¡GOTO2010 
" :GOTO2010 
" :GOTO2010 
" ¡GOTO 2010 

" :GOTO 201 

;l :GOTO 20 

" :GOTO 



.1 201 

2010 

2010 BEEP:RETURN 

2020 B*="NO HAY DATOS EN FICHERO" 
2030 GOSUB1670 

2040 FORQQ=1TO400¡NEXT¡GOSUB1720 
2050 RUN 




MSX por dentro ■ 



«je?: 



MAS POTENTE 
QUE OTROS 



Los aparatos MSX no sólo 
tienen la ventaja de su extra- 
ordinaria compatibilidad, si- 
no también la de su potencia. 
Aquí comparamos su BASIC 
con el del Spectrum y el 
Commodore 64. 




ria U S.AM m E«o steñu^áue? aTnque 
los Commodore o Spectrum ofrezcan 

que los MSX, en 

ble es porque el usuario de estos apara- 
tos necesita ocupar más que el usuario 
del MBBC, como consecuencia de que el 



l-.I cu 
pales 

menú- caro como para que el 
aprecie las sustanciales diferencia 
ventajas que ofrecen los MSX. 
También hemos querido inclv. 

«xxx», el ZX Spectrum requii 



requiere y las dificultades de progra- 
mación que comporta. En el ejemplo B. 
la comparación sólo es factible con el 
ZX Spectrum, dado que el Commodo- 
re 64 necesita un cartucho especial de 
software para gráficos. 



EJEMPLO A 
EJECUCION DE LA 
ESCALA MUSICAL: 
DO-RE-MI-FA-SOL-LA-SI 
(Octava 4) 



0 PLAY "CDEFGAB" 



. ZX SPECTRUM: 
10 BEEP 1,0: BEEP 1,2 
20 BEEP 1,4: BEEP 1, 5 
30 BEEP 1,7: BEEP 1, 9 



10 FOR I = 1 TO 7 
20 READ A 
30 BEEP 1, A 



POKEL, 0 

20 POKE 54296,15 

30 POKE 54277,7 : POKE 

54278,133 
40 POKE 54276,17 
50 FOR T = 1 TO 300 : NEXT 
60 READ A: READ B 
70 IF B = -1 THEN END 
80 POKE 54273.A : POKE 

54272.B 

90 FOR T = 1 TO 250 : NEXT 
100 GOTO 30 

110 DATA 17,37, 19, 63,21, 154, 

22, 227 
120 DATA 25, 177, 28, 214, 

32, 94, -1, -1 



ibujo de un cuadrado (longitud 

= 50): 

(50, 50) 



MSX por dentro 



10 SCREEN 2 
20 UNE (50, 50) - 
30 GOTO 30 

ZX SPECTRUM: 
10 PLOT 50, 5( 
20 DRAW 50, 0 
30 DRAW 0, -5 
40 DRAW -50, C 
50 DRAW 




10 SCREEN 2 
20 DRAW "BM100, 
100E50F50L100" 



ZX SPECTRUM: 
10 PLOT 0, 0 
22 DRAW 50, 50 
30 DRAW 50, -50 
40 DRAW -100,0 

3. Dibujo de la silueta de ! 



0 SCREEN 2 

!0 DRAW "BM50, 100RI0E2 
OF5R10E10F5F10R5E5F10 



ZX SPECTRUM: 
10 PLOT 0,0 
20 DRAW 10,0 
30 DRAW 20,20 
40 DRAW 5,-5 
50 DRAW 10,0 
60 DRAW 10,10 
70 DRAW 5,-5 



80 DRAW 10,10 

90 DRAW 5,0 

100 DRAW 5,5 

110 DRAW 10,-10 

120 DRAW 5,0 

130 DRAW 10,-10 

4. Dibujar un cuadrad 
color (p.e., rojo) 

MSX: 

10 SCREEN 2 

20 LINE (50,50) - 



5. Dibu,_. 

MSX: 

10 SCREEN 2 

20 CIRCLE (100, 100), 50, 1 

30 PAINT(100, 100), 15 

40 GOTO 40 
ZX SPECTRUM: 

No puede hacerl< 



r una elipse y pintarl 



n BASIC. 




N.'l -150PTAS. N.' 2 -150 IT AS. N." 3 y 4 - 300 (TAS. N.-5-1: 

iSI TE HACE FALTA ALGUN NUMERO DE _ 



I.- 6 -150 IT AS. N.-7-150PTAS. 

PIDELO HOY MISMO! 

B pROCMMAS° r 



BOLETIN DE PEDIDO - 



Sí, deseo recibir hoy mismo los ni 



de MSX CLUB DE PROGRAMAS, libre de 

/Cija .. 



gastos de envío, por lo que adjunto talón n.° 

por el Importe de ptas. a nombre de MANHATTAN THANSFER, S.A. 

NOMBRE Y APELLIDOS 

CALLE N.° CIUDAD 



I 



...PROVINCIA .. 



...TEL. . 



SONY 

Balmes, 401 - Tel. 212 58 04 - 08022 Barcelona 

SONY BERNARDO 

Córcega, 267 - Tel. 218 22 97 - 08008 Barcelona 

Oferta: MSX-NAVIDAD 

Por la compra de un ordenador Sony-MSX o periférico (Floppy 
o impresora) se obsequiará con una de las siguientes opciones. 
• 50 '/« descuento curso Basic (cursos especiales 10-14 años) 
• 10.000 Ptas. en Software 
Duración de la oferta: Noviembre, Diciembre y Enero. 
Venga a ver nuestro extenso catálogo de programas 

y juegos para su MSX. 
Cursos intensivos de Basic, también cursos especiales 
para niños de 10 a 14 años. 
Amplia gama de ordenadores de gestión. 




eo suscribirme pot doce i 
que pago adjuntando tal 



,0-T2 - 08Ó23 Barceiona "" 



Importante: Colocar en el sobre: Departamento Suscripciones MSX CLUB 



Entrevista 



MSX ES LA BASE DEL 
HOGAR INTERACTIVO 



Antonio Roldan — Software 
Manager de Philips Ibérica, 
S.A.E.— da cuenta de las ra- 
zones por las cuales esta 
multinacional fue la primera 
compañía europea en adop- 
tar el sistema MSX para sus 



l.i compañía para la qu L - 

cargo de Software Managi 




todo Sebe ser un'staWdard 

MUNDIAL. ^ 
-La política deWü^Tes^em 

do de las multinacionales japonesas y la 
americana Microsoft de 
laníar ai mercado un sistema compati- 
ble para un grupo de marcas, Philips vio 
la oportunidad de desarrollar una má- 
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NO TE PIERDAS NUESTRO 



El MSX por dentro. 



LOGO, 

UN LENGUAJE 
DIDACTICO 



Si desea que nuestro ordenador realice un 
determinado trabajo, hay que darle instruc- 
ciones precisas en un lenguaje interpretable 
por el microprocesador. Habitualmente en 
los MSX utilizamos el BASIC porque es 
el jenguaje residente en su ROM. Pero el 
universo de los lenguajes informáticos no 
termina ahí. Y en este número veremos un 
lenguaje de «alto nivel»: EL LOGO. 



LENGUAJES DE ALTO 
Y DE BAJO NIVEL 

S lectores se ha sorprendido al leer 
en las líneas que introducen «t 
artículo la expresión «lenguaje de alto y 
bajo nivel... En términos informáticos, 
se denominan lenguajes de .bajo nivel, 
a aquellos en los que el usuario — cuan- 
do pretende dialogar con el ordena- 
dor Jebe hacerlo en un lenguaje pró- 
snno al ele la maquina i utilizando sel les 
ele números binarios o hexadecimales). 
Evidentemente, para trabajar con estos 



de su lenguaje? Este es el planteamiento 
de partida de los lenguajes de alto nivel. 

UNAS NOTAS 
SOBRE EL BASIC 

El BASIC (Beginners All-purpose 



ÍaSIC^MSX %] q^dlspon'mroXs 

ñute la creación de programas de jue- 
go-, urálicos, cié gestión, educativos, 
etc. El BASIC MSX es pues, un len- 
guaje de alto nivel bastante evoluciona- 
do además, puesto que posee una gran 




i lenguajes de alto nivel 
>1 usuario redactar sus no termina en el BASIC, sino que exis- 
programas ae una manera inteligible ten muchos otros lenguajes de esta ca- 
para él siendo luego traducidos alen- tegoría (ADA, FORTH, COBOL, 
guaje máquina por el ordenador. Pero | PASCAL, LISP, LOGO) si bien son 
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usados para aplicaciones más concretas. 

UN POCO DE HISTORIA 

En 1959 (excelente año, nací yo) en el 
Massachusetts Institute of Techno- 
se creó el LISP (List Pro- 

oHentlcío ^inTCStTaSonel^n^ÍTe™^ 

Íiífdad S de TtiliS^procesos ' definidos" 
previamente que pueden llamarse a sí 
mismos. Diecisiete años más tarde, en 
1976 el profesor Seymour Papen del 
mismo Instituto Tecnológico de Mas- 
sacliusctts, inspirándose en el LISP 
creó la primera versión del LOGO. 



'um'J" ue^s'de mTs 'ílromveT'^ei 
BASIC— 'sino pa™ a aprend n e'r Ve a dTscu- 
rrir de una manera Estructurada. El 
LOGO es un lenguaje modular, es de- 



acto de introducirse en el ordenador. 
Todas estas características hacen de este 
lenguaje una herramienta ideal para la 
enseñanza asistida por ordenador; no 
c inlrecuente la utilización de LOGO 



de" LOGO ^fdeiarTolló la «tortuga^ 
un robot controlado por el ordenador 
que se deslizaba por el suelo, y arras- 
jarse a voluntad*; pudiéndose trazar di- 
luidnos Posteriormente, con la popu- 
larización de los ordenadores persona- 
les, se sustituyó la tortuga robot por su 

tor. En realidad esta tortuga no es otra 



esa forma en la pantalla y que obedece 
loga mecánica. 

nes «primitivas» de LOGO son: 
SHOWTURTLE, PENUP, PEN- 
DOWN, HOME y CLEARSCREEN. 

las de movimiento: FORWARD, 
BACK, LEFT y RIGTH ya nos van a 

grma'ent"^ 

CLEARSCREEN = CS 
(Borrar pantalla) 
SHOWTURTLE=ST 
(Mostrar tortuga en pantalla) 
PENUP=PU 
(Subir lápiz) 

PENDOWN=PD (Bajar lápiz) 
FORWARDn=FWn 



lUuc 



RIGTHn = RTn 



FORWARD50 
que la tortuga se desr 
centro de la pantalla haci 
nidades trazando una líi 
>s que gire hacia la dere 



SHOWTURTLE 



(Mué- 



a 50 u 



LEFT 90 

(Gira la tortuga 90" a la izquierda) 
FORWARD 20 

(Traza una línea de 20 unidades) 
PENUP 

(Levanta el lápiz) 
FORWARD 10 

(Avanza 10 unidades sin dibujar) 
PENDOWN 

(Baja el lápiz para poder dibujar otra 
vez). 



FORWARD 20 
LEFT 90 
FORWARD 50 



lizado instrucciones directas; es dec 
se le ha dicho a la tortuga en cada m 
mentó lo que tenía que hacer de u 



ilimicnto, Jcbemos utilizar TO seguido 
del nombre que hayamos elegido para 
el procedimiento. Para aclarar esto — 
mos a crear un procedimiento qui 
maremos cuadrado: 

TO CUADRADO 

FORWARD 25 

LEFT 90 

FORWARD 25 

LEFT 90 

FORWARD 25 

LEFT 90 

FORWARD 25 

LEFT 90 



SSSflS 



de 25 un 
tras la i 



3 , cada i 



procedimiento | 
' istrucciones. 



tendrás que llamar al 

cribir toda la seri 

í'ro.v i m a m en te seguiremos hablando de 

raímente ya tiene en el mercado un 
rie de versiones para los usuario: 
standard MSX. 

Feo. Javier GUERRERO 



3 REM************** 

20 REM* LLAMADA * 

30 REM* OCULTA * 

0 REM* POR * 

50 REM* SUSANA B. * 

~~ ÍEM* PARA * 

70 REM* * 

3 REM* MSX CLUB * 



130 CLS 

140 LOCATE 10. 1 :PRINT"«AUISO»" 
150 PLAY"tl60o414cdefg2. raboScdc 
bo4s2r4" 

160 LOCATE 1.5:PRINT"Este progne 



430 PAINTC 122, 1305.4.4 
440 PAINTC127.505.4.4 

450 PRESETC10. 25 :PRINT#1, "INTENTO Ns":„ 
460 PRESETC20, 1605 :PRINT#1. "INTRODUCE LO 
S NUMEROS" 

470 REM INTRODUCIR LOS NUMEROS 
480 FOR 1=1 TO 5 



500 P*CI] 
510 FOR h 
520 IF PS 
530 N~ 



: INKEY* : IF P$C I 5=" "THEN 500 
= 1-1 TO 1 STEP -1 
n=p*cm THEN 500 



170 LOCATE 1.12:P 



540 R*="0123456789" 

1=1 TO 10 
560 IF P*CI5=MID*CR*.M.15THEN 590 
570 NEXT M 
580 GOTO 500 

598 J^RESET £1 00M 3* C I - 1 5 , 93 5 : PR I NT# ! , PS 



5=MID*CF*.M.15THEN GOSUB 720 



3 Z*=INKEY$:IF 2*=" "THEN 200 
3 COLOR 4.14.14 
3 SCREEN 2 
3 CLS 
240 W=l 

250 OPEN"grp :"AS#1 

260 REM CREAR LA CADENA 

270 DIM NC55.N*C55.PC55.P*C55 



300 FOR H= 
310 IF NCI 
320 NEXT h 
330 N*CI5= 



340 F 



ten: 



350 NEXT I 
360 REM DIBUJO 
370 DRAW"BM70. 150U18M+15. -80R80M+15. +80D 
""1-2.+2L106M-2.-2" 

3 DRAWBM80.80L24M-4.-4U24M+20.-40R110 
20.+40D24M-4.+4L28" 

3 CIRCLEC127.995.44 1.2 

3 FOR H=95 TO 147 STEP 13 
3 LINECH.895-CH+13. 1025. ,B 



690 FOR K=l TO 1800: NEXT K 
' " W=5 THEN 780 
_S:GOTO 370 
720 IF I=M'2 THEN P=P+1 :GOTO 750 
-INEC98+13*CI-15.915-CC98+13*C 
35. .B:BEEP 
740 RETURN 
750 CIRCLEC101+13*C 
" ~ =>=5THEN 780 



15.955.6:BEEP 



770 RETURN 

I P=5 THEN PRESETC50.1735:PRINT»1.' 
BRAUO ! " : PLAY " T200O4L4CEFL 1 GL4CEFL 1 GL4CEF 
L2GECEL1D. " . " T200R4R4R4O5L4CCO4L8AO5CR4R 
4R405L4CC04L8A05CR4R4R4L2CCCC04L1B. " 
790 PRESETC 10. 1845 :PRINTttl, "QUIERES INTE 
NTARLO OTRA UEZCS'Nl" 

=INKEY*:IF X*=""THEN 800 
810 IF X*="N" OR X*="n" THEN COLOR 1.4 

X*="s" OR X*="S" THEN RUN 230 



:st de Listados i 



40 - 29 260 - 

50 - 93 270 - ._ 

60 -252 280 -187 

70 -217 290 - 77 



370 -106 490 - 65 



-154 520 -11 



530 -203 650 -208 

420 -203 540 -182 660 -204 

- 84 430 -221 550 -194 670 -160 

>m -127 320 -203 440 -141 560 -192 680 -205 

-100 330 -198 450 -132 570 -208 690 -218 

-216 340 -192 460 - 70 580 -140 700 -222 

-159 350 -204 470 - 0 590 -235 710 -227 




27 




29 



1 ***********X**X*****> 



40 RErt * 
50 RE II * 
68 REM * 



EL DARDO * 
GABRIEL COLL BARBER * 
: HSX-CLUB * 



188 CLEAR 
118 OPEN"grp 
128 SCREEN2:C0L0R 15.1 



158 PSETC27, 1831. 1 



:SCREEN2:C0L0R15 

0u5e3u5h3j5hl0u2 
Cl5d40e5u2e7ul2h 



168 PAINTC25.118 
178 PSETC55.933. 
7f 3d28f 3r5e3u68h 
180 PSETC66. 1033 
h317g 3 " 
190 PAINTC57.973 
200 PSETC100.93J 
5f 25f 3r5e3u2h28e4 
PSETC11B. 1053. 
220 DRAU' 

PAINTC105.95 
240 PSETC155.::: .. 
258 0RAW"c2d65r9e 



:QRAU"c6d60f 3r5e3u20e3r 
12993" 

1 :DRAU"s4c6dl6f3i-7a3ul6 



268 PSETC164. 183: 
?u2h5" 
278 PAINTC157.95: 
280 PSETC195.953. 
0h3127 g 3" :PSETC285. 
~ 3u25h3i9g3" 
PAINTC197.97: 
LINEC0.83: 
LINEC0. 17: 



8u2el0u5e3u5h3u5hl0u2h 
1 : DRAW " c 2d 40e 5u 2e 7u 1 0h 



338 FOR 

REn PRESENTAC 
358 ONKEYGOSUB520, 



255,833. 18 

. 1773. 18 

>RINT#1."PARA 32K ni 
O1000:NEXT 



65.303. 
PSETC45.50: 



:N2:COLOR 5. 
□ARDO" 
a:°RINT#l. "o 



3 COLOR 

3RIEL COLL BARBER ' 
3 COLOR 8. 1. 1 :fSETC50.903 



3 PSETC55.1003 
3 COLOR 15.1.1 



3 COLOR 7.1 
rietd F3 Pa 
3 PSETC58. 1 



PRINT#1. 
:PSETC58. 1203.0:PRINT#1, 

INT#1. " in 
PSETC58. 1503.0 



RINT#1," 



LINEC10.03 
LINEC240.0 
LINEC240, 1 
LINEC10.18_. 
498 KEYC130N:KEYC230N:KEYC330N 
500 GOTO 508 



-C240.03. 15 
1-C240.1803.15 
"-[18. 1803, 15 
3-C10.03. 15 



510 REM INSTRUCCIONES 

520 SCREEN0 :CLEAR :COLOR 1 5 . 4. 7 :DIMA*C 583 
:ONKEYGOSUB520, 820. 2040 :KEYC I 30N :KEYC2 30 
N:KEYC330N 

530 A*C03=" ESTE PROGRAMA ES LA IMITACI 



="ENCUENTRA SOBRE LA DIANA Y SO 

'CUANDO ESTE SITUADA SOBRE 

'PARTE CENTRAL COLOR UERDE 

'EL BOTON DE ACCION LO QUE 

'EL DISPARO. " 
' EL DISPARO SERA UALIDO CUAN 

93="EL DARDO CAIGA SOBRE LA DIANA 

CUANDO SALGA UN CUADRO EN 

PANTALLA Y CONSIGAS DARLE TE 



INSTRUCCIONLS- 



U33 



710 FORU=0TOI-1 :A 
728 PRINT:PRINT 
738 FORC- 1 TOLENC A 

750 PRINTMID*CA*CU3. 
760 FORN=lfO30:NEXr 
770 NEXT 
780 FORN=l 
790 NEXT 
800 FORN=1TO1700:NEXT 
810 GOTO360 
820 REM JUEGO 

830 ON INTERUAL=50GOSUB2140 
l:Y=10 
ILOR 

1.2.P! :RESTORE920 
860 FORC=0TO2 
870 F0RA=1T08 

READA*:B*CC3-B*CC3+C 




1880 PSSTr 3 0.705.2:^:NT#:.»:50 PUNTOS C 

1890 PSETr30.90D,2¡PR:NT#l,P¡"T:RADAS " 

-.900 Psnrf.0.::0j.2:^:N-i.:. -. r - ■. 

SEGUNDOS" 

•910 GOSU32-.60 

1920 rOiWnüSr ■■• -JiB^lVIX' 

'.930 scrgini :color 3 



3 SCREEN0:COLOR 15,1,1 

3 PRINT :PRINT" DESEA UTILIZA 

13 O LAS TECLAS DEL CURSOR?" C 



2060 INPUTT* 



!"OR T*="CURSORES'"THE 
<C13"ORT*="JOYSTICKC! 



00 GOFO 1950 

10 SCREEN0:COLOR 15.4,2 SPRINT "ESTE J 
•M r;s|.-,, :/,'UQ -1JU .' r ; . ;NLS q - L 

=os:c:qn c i is^dd "ara quí: tu pued . 

ETCCARLO Y ILJÜRARI J S l LUN r 0 GUS T 0 ES 
RO QUE LO CONSIGAS. " : D RINT" AN"1Q 



2110 
2130 



GOTO 1290 

TE=TE+! 

RETURN 




Programas i 



i Por Juan A. Castillo ma 



SOLITARIO 



Los juegos de tablero son en 
su mayoría un desafío al in- 
genio, luán A. Castillo ha 
adaptado para MSX «El soli- 
tario» en el que no sólo tie- 



nes que eliminar fichas, s 

hacerlo de modo que realices 
la menor cantidad de me 
mientos y dejes la última 
ficha en el mismo centro. 



3 ' ***** SOLITARIO **** 

3 • ***** DE **** 

3 • ***** J. A. CASTILLO **** 

3 • ***** PARA **** 

3 • ***** nSX-CLUB **** 

3 ■ ************************* 

3 CLS:KEY OFF: COLOR 15^12^2 :CLS 



lili I I III I 

r «Mil i mu 

r:PRINT 



220 PRINT"en el centro del 
230 LOCATE 0. 20 :PRINT"Pu lea 
240 E*=INKEY*:IF E*="" THEN 240 
250 SCREEN 2..0:COLOR 1,14.7:CLS 
260 OPEN"GRP:" AS 1 
270 GOSUB 1490 
280 GOSUB 780 
290 GOSUB 650 



3 REH Jugada 

3 REM 

LINEC0, 1801-C255. 1 



0.182":COLOR 12:F 



14,BF:DRAW"BM4 



360 IF G$=CHR*C81 THEN 3 



RINT#1.G*::G0T0 340 



3=99 THEN GOTO 630 
=I<1 1 OR A>77 THEN GOTO 330 
=1*CA:<>T* THEN GOTO 330 
EC0. 1801-C255. 1905. 14, BF :DRAW"Bri4 




I. 182" :COLOR 8 :PRINT*1 . A"A donde: 

148 G*=INKEY#:IF G*="" THEN 440 

150 IF G*=CHR$C133 THEN 480 

^B0 IF G*=CHR*C83 THEN 430 

\7H B*=B*+G*!PRINT#l,G*::GOTO 440 



500 I 



OR B>7? THEN GOTO 430 
<>E* THEN GOTO 430 
/23=E*:A*CA3=E*:A*CB3=T* 



520 no=no+i 

530 CT=0 

540 FOR F=ll TO 75 
550 IF A*CF3=T$ THEN CT=CT+1 
560 NEXT F 
570 GOSUB 650 

[0, 1803-C255. 1903, 14,BF:DRAW"Bri2 
0, 182" :PRINT#1 . "Quedan " :CT;"f ¡chas" 
590 FOR T=0 TO 800:NEXT T 
600 FOR T=0 TO 5:PLAY"164o6ml0000a". "] 
o 5c ". "164o69" ¡LINEC0. 1803 -C 255. 190 3.1. _ 
:DRAW"bm70. 182" :COLOR 15 :PRINT#1 , "SOLITA 
RIO" :LINEC0. 1803-C255. 1903 . 14. BF :NEXT T 
610 IF CTOl THEN 300 

620 IF A$C443=T* THEN LINEC0. 1803-C255, 1 
90 3, 14.BF:DRAW"BM20. 182" :PRINTttl , "Lo has 
":NO:FOR T=0 TO 3080:NEXT 



r:END 

30 LINEC0. 1803-C255. 1903.1 
. 182":PRINT#l."No lo has c 
T=0 TO 3000:NEXT T:END 



. BF :DRAU)"Bf12 



?10BD2L3G5D6F5R6E5U6H5L3" 



1150 A*C3 



1230 A$l 
1240 A$l 
1250 A$l 



44 3=E* 
453=T* 
463=T* 
473=T* 



IF D-T=8 THEN D=D+2:G0T0 740 
PSETCXCD3.YCD33, 14 :DRAlil A*CD3 
IF POINTCXCD3+10.YCD3+23=8 THEN P 

730 IF POÍNTCXCD3+Í0.YCD3+23=14 THEN 
"' "(CD3+10.YCD3+103. 14 
740 NEXT O 

"50 IF NJO0 THEN LINEC0. 1803-C255. 19 
4:DRAW"bm70.181" :PRINT#1 ." 1 levas " :M 
asimientos" :FOR T=0 TO 1000:NEXT T 
30 LINEC0.1801-C255.1903.14.BF 

770 RETURN 

780 REtl INICIALIZACION 

790 Din XC2003.YC2003 
300 FOR D=ll TO 75 
310 T=10*CINTCO'1033 
320 IF D-T=8 THEN D=D+3 
330 READ XCD3 :READ YCD3 

350 DATA 50,20.70,20.90.20.110 
. 150.20. 170.20 

360 DATA 50.40.70.40,90.40.110 
. 150.40. 170.40 

370 DATA 50.60.70.60.90.60.110 
. 150.60. 170.60 

380 DATA 50.80.70.80.90.80,110 
. 150.80. 170.80 

390 DATA 50.100.70,100.90.100. 
3.100.150.100.170.100 
900 DATA 50.120.70.120.90.120. 
-.120.150.120.170,120 
910 DATA 50.140.70,140,90.140. 
•3.140.150.140.170.140 
920 REM 



>C533=T$ 
SC543=T* 
fcC553=T* 
ÜC563=T$ 



*C633=T* 
$C643=T$ 
*C653=T$ 
*C663=U* 
*C673=U$ 
*C713=U* 
*C723=U* 



=50 TO 170 STEP 20 
[,73. 14:PRINT#1,N 
[+1.73.14:PRINT#1.N 



3 FOR 1=25 TO 145 STEP 20 
3 PSETC30.I3.14:PRINT#1,N 
" ~>RINT#1.N 



1580 PSETC31 , 



REGALATE EN ESTAS FIESTAS UN LIBRO 

VíTAí PAR A FT TKTTARTO HF 
Vil AL 1AM íl UjUAMU 1)1 IVIjA 


UN LIBRO PENSADO 
PARA TODOS LOS QUE 
QUIEREN INICIARSE 
DE VERDAD EN LA 
PROGRAMACION BASIC 

Construcción de programas. El po- 
tente editor todo pantalla. Constan- 
tes numéricas. Series, tablas y ca- 
denas. Grabación de programas. 
Gestión de archivo y grabación de 
datos. Tratamiento de errores. Los 
gráficos del MSX. Los sonidos del 
MSX. Las interrupciones. Introduc- 
ción al lenguaje máquina. 


===— wl 


Y ADEMAS PROGRAMAS 
DE EJEMPLO 

Alfabético. Canon a tres voces. 
Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. 
La Flauta Mágica de Mozart. Scrap- 
ple from the apple & Donna Lee. The 
entretainer. Teclee un número. Ca- 
lendario perpetuo. Modificación Ta- 
bla de colores SCREEN 1. Rectán- 
gulos en 3-D. Juego de caracteres 
alfabéticos en todos los modos. Jue- 
go Matemático. Más grande más pe- 
queño. Póker. Breackout. Apocalyp- 
se Now. El robot saltarín. El archivo 
en casa. 


Deseo me envíen el libro Los secre 
MANHATTAN TRANSFER, S.A. 
Nombre y apellidos 


tos del MSX, para lo cual adjunto 


talón de 1.500 ptas. a la orden de 


Este boletín me da derecho a recibir los secretos MSX en mí domicilio libre de gastos de envío o 
cualquier otro cargo. 

importante: Indicar en el sobre MANHATTAN TRANSFER, S.A. 

«LOS SECRETOS DEL MSX» 

Roca i Batlle, 10-12 Bajos-08023 BARCELONA 



iORPRENDE A UN AMIGO FELICITANDOLE ESTAS FIESTAS CON 
«LOS SECRETOS DEL MSX», UN REGALO PARA TODO EL AÑO j 



Deseo remitan LOS SECRETOS DEL MSX a 

Nombre y apellidos 

Calle N.° Ciudad CP 

De parte de 

Nombre y apellidos 

Para lo cual adjunto talón del Banco/Caja. N.° de 1.500 - ptas. 

Dicho libro sera remitido por correo certificado incluyendo una felicitación personalizada del 
remitente. 

Remitir el talón a nombre de: 

MANHATTAN TRANSFER, S.A. Roca l Batlle, 10-12 bajos - 08023 Barcelona 
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es PHILIPS MSX disponen de 



PHILIPS ofrece lo que el poderoso mundo di 
Stándard MSX merece: lo mejor. Y esto se 
concreta en sus equipos, en sus programas, y 
en el valor del dinero desembolsado. PHILIPS 



PHILIPS 



ELXPRESS 




• Ordenador Sistema MSX 

• 80KRAM 

• Unidad de disco de 3,5' integrada 
en el teclado 

• Trabaja en CPM MSX-DOS, 
MSX-DISK BASIC 

• Teclado profesional de diseño ergonómico. 
Va incluido un maletín para la protección 
del ordenador durante su transpode 

• Dos puedas de conexión: RS 232-C y 
Centronics paralelo 

• Salida a TV. y monitor 

• Admite directamente una segunda 
unidad de disco 

• MVDP (pasa de 40 a 80 columnas 

en pantalla. Indispensable para trabajar 
en CP/M) 




